﻿Public Class frmPen

    Private Sub frmPen_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        frmMain.modeItem.Checked = False
        frmMain.chPItem.Checked = False

    End Sub

    Private Sub frmPen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Right - Me.Size.Width, Screen.PrimaryScreen.WorkingArea.Top)
    End Sub

    Private Sub mainControl_Selected(ByVal sender As Object, ByVal e As System.Windows.Forms.TabControlEventArgs) Handles mainControl.Selected
        If mainControl.SelectedTab.Text = "Channels" Then
            Me.Text = "Channels - Pen"

        End If
        If mainControl.SelectedTab.Text = "Mode" Then
            Me.Text = "Selection Mode - Pen"

        End If
        If mainControl.SelectedTab.Text = "Colors" Then
            Me.Text = "Colors - Pen"
        End If
    End Sub
End Class